home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / easy loadir (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.2 KB  |  67 lines
  1. 10 rem copyright 1988 compute! publications -- all rights reserved
  2. 15 poke 646,14:poke 53280,14:poke53281,6
  3. 20 print"[147]please wait:"
  4. 30 print""tab(14)"easy loadir"
  5. 40 print"            copyright 1988"
  6. 45 print"       compute! publications, inc."
  7. 50 print""tab(11)"all rights reserved"
  8. 60 rem read and store machine language data
  9. 70 forad=52736to53152:readdt:pokead,dt:x=x+dt:ifad=52803thenx=x-dt
  10. 80 printchr$(19);tab(13);right$("00"+mid$(str$(53152-ad),2),3)
  11. 90 nextad:ifx<>45626thenprint"data statement error.":stop
  12. 100 rem install program wedge and end
  13. 110 sys52736:end
  14. 120 rem machine language data
  15. 130 data 238,33,208,173,0,3,201,50
  16. 140 data 208,7,173,1,3,201,206,240
  17. 150 data 22,173,0,3,141,62,206,173
  18. 160 data 1,3,141,63,206,169,50,141
  19. 170 data 0,3,169,206,141,1,3,169
  20. 180 data 45,160,207,32,30,171,206,33
  21. 190 data 208,96,224,11,208,7,32,121
  22. 200 data 0,201,36,240,3,76,139,227
  23. 210 data 104,104,162,8,32,115,0,240
  24. 220 data 16,32,158,183,224,8,240,9
  25. 230 data 224,9,240,5,162,14,76,55
  26. 240 data 164,142,161,207,32,98,206,76
  27. 250 data 6,169,169,2,162,159,160,207
  28. 260 data 32,189,255,169,1,174,161,207
  29. 270 data 160,0,32,186,255,32,192,255
  30. 280 data 32,183,255,201,0,208,77,162
  31. 290 data 1,32,198,255,32,228,255,32
  32. 300 data 228,255,169,13,32,210,255,165
  33. 310 data 145,16,57,32,204,255,32,228
  34. 320 data 255,201,32,208,7,32,228,255
  35. 330 data 201,0,240,249,169,1,141,162
  36. 340 data 207,162,145,160,207,32,26,207
  37. 350 data 162,1,32,198,255,32,228,255
  38. 360 data 32,228,255,32,228,255,133,57
  39. 370 data 32,228,255,133,58,32,183,255
  40. 380 data 201,0,240,18,169,255,133,58
  41. 390 data 32,204,255,169,13,32,210,255
  42. 400 data 169,1,32,195,255,96,32,201
  43. 410 data 189,162,149,160,207,32,26,207
  44. 420 data 32,228,255,201,0,240,155,72
  45. 430 data 32,210,255,104,201,34,208,240
  46. 440 data 169,0,133,212,206,162,207,240
  47. 450 data 231,169,0,133,199,169,48,13
  48. 460 data 161,207,141,154,207,162,153,160
  49. 470 data 207,32,26,207,32,228,255,76
  50. 480 data 232,206,173,134,2,72,173,33
  51. 490 data 208,141,134,2,138,32,30,171
  52. 500 data 104,141,134,2,96,147,32,32
  53. 510 data 32,32,32,32,32,32,32,32
  54. 520 data 32,32,32,32,69,65,83,89
  55. 530 data 32,76,79,65,18,68,73,82
  56. 540 data 13,13,32,32,32,67,79,80
  57. 550 data 89,82,73,71,72,84,32,49
  58. 560 data 57,56,56,32,67,79,77,80
  59. 570 data 85,84,69,33,32,80,85,66
  60. 580 data 76,46,44,32,73,78,67,46
  61. 590 data 13,32,32,32,32,32,32,32
  62. 600 data 32,32,32,65,76,76,32,82
  63. 610 data 73,71,72,84,83,32,82,69
  64. 620 data 83,69,82,86,69,68,13,13
  65. 630 data 0,32,68,193,0,58,76,207
  66. 640 data 0,44,56,44,49,58,0,36,48
  67.